home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / yerli / 07 / _SETUP.1 / Emlak 2000.exe / 0 / RCDATA / TFORM37 / TFORM37.txt < prev   
Encoding:
Text File  |  1999-02-04  |  3.9 KB  |  195 lines

  1. object Form37: TForm37
  2.   Left = 221
  3.   Top = 150
  4.   AutoSize = True
  5.   BorderStyle = bsNone
  6.   Caption = 'D∩┐╜zeltme'
  7.   ClientHeight = 380
  8.   ClientWidth = 640
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = False
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Image1: TImage
  20.     Left = 0
  21.     Top = 0
  22.     Width = 640
  23.     Height = 380
  24.     AutoSize = True
  25.     Picture.Data = {<image000.jpg>}
  26.     OnMouseDown = Image1MouseDown
  27.   end
  28.   object Image2: TImage
  29.     Left = 352
  30.     Top = 24
  31.     Width = 100
  32.     Height = 25
  33.     AutoSize = True
  34.     Picture.Data = {<image001.jpg>}
  35.     OnClick = Image2Click
  36.   end
  37.   object Image3: TImage
  38.     Left = 592
  39.     Top = 24
  40.     Width = 13
  41.     Height = 13
  42.     AutoSize = True
  43.     Picture.Data = {<image002.bmp>}
  44.     OnClick = Image3Click
  45.   end
  46.   object Image4: TImage
  47.     Left = 576
  48.     Top = 24
  49.     Width = 13
  50.     Height = 13
  51.     AutoSize = True
  52.     Picture.Data = {<image003.bmp>}
  53.     OnClick = Image4Click
  54.   end
  55.   object Image5: TImage
  56.     Left = 456
  57.     Top = 24
  58.     Width = 100
  59.     Height = 25
  60.     AutoSize = True
  61.     Picture.Data = {<image004.jpg>}
  62.     OnClick = Image5Click
  63.   end
  64.   object DBGrid1: TDBGrid
  65.     Left = 28
  66.     Top = 64
  67.     Width = 580
  68.     Height = 305
  69.     DataSource = DataSource1
  70.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  71.     ReadOnly = True
  72.     TabOrder = 0
  73.     TitleFont.Charset = DEFAULT_CHARSET
  74.     TitleFont.Color = clWindowText
  75.     TitleFont.Height = -11
  76.     TitleFont.Name = 'MS Sans Serif'
  77.     TitleFont.Style = []
  78.     OnDblClick = DBGrid1DblClick
  79.     Columns = <
  80.       item
  81.         Expanded = False
  82.         FieldName = 'Ad'
  83.         Width = 141
  84.         Visible = True
  85.       end
  86.       item
  87.         Expanded = False
  88.         FieldName = 'Soyad'
  89.         Width = 150
  90.         Visible = True
  91.       end
  92.       item
  93.         Expanded = False
  94.         FieldName = 'Telefon'
  95.         Width = 129
  96.         Visible = True
  97.       end
  98.       item
  99.         Expanded = False
  100.         FieldName = 'Ceptel'
  101.         Width = 125
  102.         Visible = True
  103.       end>
  104.   end
  105.   object Edit1: TEdit
  106.     Left = 144
  107.     Top = 24
  108.     Width = 81
  109.     Height = 21
  110.     TabOrder = 1
  111.   end
  112.   object ComboBox1: TComboBox
  113.     Left = 56
  114.     Top = 24
  115.     Width = 73
  116.     Height = 21
  117.     Style = csDropDownList
  118.     ItemHeight = 13
  119.     TabOrder = 2
  120.     Items.Strings = (
  121.       'Ad'
  122.       'Soyad'
  123.       '∩┐╜l')
  124.   end
  125.   object ComboBox2: TComboBox
  126.     Left = 240
  127.     Top = 24
  128.     Width = 81
  129.     Height = 21
  130.     Style = csDropDownList
  131.     ItemHeight = 13
  132.     TabOrder = 3
  133.     Items.Strings = (
  134.       'E∩┐╜le∩┐╜ir'
  135.       '∩┐╜le Ba∩┐╜lar'
  136.       '∩┐╜le Biter'
  137.       '∩┐╜∩┐╜erir')
  138.   end
  139.   object DataSource1: TDataSource
  140.     DataSet = Query1
  141.     Left = 400
  142.     Top = 56
  143.   end
  144.   object Query1: TQuery
  145.     Active = True
  146.     SQL.Strings = (
  147.       'select * from tel')
  148.     Left = 440
  149.     Top = 48
  150.     object Query1No: TIntegerField
  151.       FieldName = 'No'
  152.     end
  153.     object Query1Ad: TStringField
  154.       FieldName = 'Ad'
  155.     end
  156.     object Query1Soyad: TStringField
  157.       FieldName = 'Soyad'
  158.     end
  159.     object Query1Telefon: TStringField
  160.       FieldName = 'Telefon'
  161.     end
  162.     object Query1Aciklama: TMemoField
  163.       FieldName = 'Aciklama'
  164.       BlobType = ftMemo
  165.       Size = 50
  166.     end
  167.     object Query1Ikincitel: TStringField
  168.       FieldName = 'Ikincitel'
  169.     end
  170.     object Query1Ceptel: TStringField
  171.       FieldName = 'Ceptel'
  172.     end
  173.     object Query1Faks: TStringField
  174.       FieldName = 'Faks'
  175.     end
  176.     object Query1Il: TStringField
  177.       FieldName = 'Il'
  178.     end
  179.     object Query1Resim: TGraphicField
  180.       FieldName = 'Resim'
  181.       BlobType = ftGraphic
  182.     end
  183.     object Query1Adres: TMemoField
  184.       FieldName = 'Adres'
  185.       BlobType = ftMemo
  186.       Size = 50
  187.     end
  188.     object Query1M: TMemoField
  189.       FieldName = 'M'
  190.       BlobType = ftMemo
  191.       Size = 1
  192.     end
  193.   end
  194. end
  195.